unit XmlUtils;

interface
uses SysUtils, NativeXml;

procedure CheckXmlRoot(XML: TNativeXml; RootName, Error: string);



implementation

procedure CheckXmlRoot(XML: TNativeXml; RootName, Error: string);
begin
	if Xml.Root.Name <> RootName then
		raise Exception.Create(Error);
end;



end.
